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| dD 4 
BASSINIT_C_GSB 16-Sep-1984 00:37: AX-11 Bliss-32 v4.0-74 Pa 
| 1o=ge8- 1382 90:32:88 BASRTL SREIBASINIGSC. 69231 ” 
| 1 MODULE BASSINIT_¢ GSB ! 
0 IDENT = *1-005° i File: BASINIGSC.832 Edit: PLL1005 
= 
| 0094 BEGIN 
| 0007 i peeeererereeeeeeeeeneneeeeeeeeerereeeereeeeeeeeeeeeeeeeeeeeeeeeereeeneeeeeet 
'‘@ 

O08 1 is COPYRIGHT (c) 1978, 1980, 1982, 1984 By 
| 000 is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

Q010 1 i* ALL RIGHTS RESERVED. 


® 

® 

® 

® 

® 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
i $10 C 0 E OR ANY OTHER ®* 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ’ 
: e 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. : 
o 

* 

& 

® 

® 

® 


i DIGITAL ASSUMES NO RESPONSIPILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


POOR Ree ERA AEE REAE AAA eeeeeeeeeeees 
' 


IAPOROPOPOMOPOPONOTOR 2 2 2 2 
WR OC ODNAUEWN@O-0OONOUL UN 


FUN —O ODNA UNE WUN (OO ODN U EWI 2OODNOU EWN 
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3 '+¢ 
; FACILITY: BASIC=-PLUS-2 Frame Support 
34 : ABSTRACT: 
3% 1! These routines set up and tear down frames for BASIC-PLUS-2. 
7 37 ‘ Frames are used for main routines, external functions, 
8 38 : external subroutines, internal functions (both DEFs and DEF*s) 
4 st internal subroutines (GOSUBs) and condition handlers. 
41 9041 ; ENVIRONMENT: VAX-11 user mode 
cs Oo4§ . AUTHOR: John Sauter, CREATION DATE: 10-Oct-78 
45 bocs i MODIFIED BY: 
46 0046 ! 
47 0047 ! 1-001 = Original. JBS 10-Oct-78 
48 0048 !' 1-002 = Increment SP, not .SP. JBS 02-JAN-1979 
4&4 0049 ! 1-005 = Change stack frame prefixes from BASS to BSF$. JBS 08-FEB-1979 
39 sts !' 1-004 - Set the IV bit in the PSW if requested. JBS 11-SEP-1979 
1 051 ! 1-005 = Add support for the OTHERWISE clause. An optional pergneter 
2g 26 specifying the address to go to has been added. PLL 18-Mar-1982 
$6 54 , 
5 55 ‘ 
56 56 '<BLF /PAGE> 
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; SWITCHES: 


18-sep 


ep-19 
14-Sep o19 


AX-11 Bliss-32 V4.0-7 
BASRTL.SRC BASINIGSC.B 2;1 


a 19:35:07 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD RELATIVE); 


; LINKAGES: 


LINKAG 


E 
BASSGOSUB_LINK = CALL (STANDARD) : 


GLOBAL (BSFSA_MAJOR_STG = 11, BSFSA MINOR _sté = 10, BSFSA_TEMP_STG = 9), 


BASSGOSUB_JSB = JSB : 
rsa A 211 
NOTUSED ( hz é 
NOPRE SERVE a 


~ 
Aw 
. 
~m 
~s 


TABLE OF CONTENTS: 


FORWARD ROUTINE 


BASSINIT_C_GSB : BAS$SGOSUB_LINK 


INCLUDE FILES: 


REQUIRE ‘RTLIN:RTLPSECT; 
REQUIRE ‘RTLIN:BASFRAME® ; 
LIBRARY ‘RTLSTARLE'; 


| MACROS: 

: NONE 

: EQUATED SYMBOLS: 

: NONE 
PSECTS: 
DECLARE _PSECTS (BAS); 
: OWN STORAGE: 

NONE 

: EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 


NOVALUE ; ‘ 


= - 


BSFSA_MINOR_STG = 10, BSFSA_TEMP_STG = 9) 


start computed GOSUB 


macros for defing psects 
Define frame structure 
Define system symbols 


declare psects for BASS facility 


Page 


oe 


—@w 
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gc “£688 1$-$e0-1964 00:57:00 


4 
BASSSSIGNAL : NOVALUE, ; signals error 


AX-11 Blis 
BASRTL” SRC 


: 115 9619 1 

3 139 110644 BASSHANDLER; andles signals 

g 693 Belg 1 

; (118 0415 1! 

3 8 Rel The following are the error codes used in this module. 

; 121 Belg 1 

; é 0417 1 EXTERNAL LITERAL 

; \$z Beis : BASSK_ON_STAOUT : UNSIGNED (8); ! On statement out of range 


RC} 


-32 v4.0 
BASINIG 


oo 768251 


—m 


De ¢ 
| PAgpentt-c.0se 6- 


4 
VenSep=198e 11:55:07 EBasRTLeSaeSBASINTéSC 682; 1 


; GLOBAL ROUTINE BASS IT_C_GSB ( ! start computed GOSUB 
T e ! table of places to go 
INDEX, ' index into table 
OTHERWISE _AD{ 2 ! addr if OTHERWISE clause 


) : BASSGOSUB"LINK NOVALUE = 
'ee 


i FUNCTIONAL DESCRIPTION: 


Compute the index for a souputed GOSUB. Then perform GOSUB 
processing, just Like BASSINIT_GOSUB. 


FORMAL PARAMETERS: 


TABLE .rx.r A table of offsets to the Lines starting 
each subroutine. The first longword is 
the number of entries in the table, each 
entry occupies a word. 

INDEX. rl.v The index into the table. If this is out 
of range we get an error message. 

COTHERWISE_ADDR.ri.vJ optional parameter - address of wher 


MEWUN—OOOnNo 
MEU OO OONOUE WN Oo 


RRRRRRLLRKERLKRREKKE 


i. 1 
is 1 1 

4% 1 

2 1 

a 1 

g ¥ 1 

a 1 

ris 1 

. y , s 

| 1! 

Se  # 

7 1! 

; 138 ,: 

; 139 1! 

; 140 1! 

3: «161 7! 

3 136 7! 

3 46 , ! 

3; 6144 ,! 

> «1465 ,: 

: 123 0440 1! , 2 
; «14 0441 1! to go if the user specified OTHERWISE 
; 148 0442 1! 

; 6149 0445 1 ! IMPLICIT INPUTS: 

3 190 0444 1! 

3; «151 0445 1! NONE 

5 13¢ 044 1! 

7+ 33 0447 1°! IMPLICIT OUTPUTS: 

3; «154 0448 1! 

s 155 0449 1! NONE 

; 156 0450 1! 

s 37 0451 1 ! ROUTINE VALUE: 

3 138 0452 1! 

3; 159 0455 1! NONE 

; 160 0454 1! 

; 161 0455 1 ! COMPLETION CODES: 

: 166 9626 1! 

; 0457 1! NONE 

: 164 Bee8 ,! 

: 165 59 1! SIDE EFFECTS: 

: 166 0460 1! : 
s ter 0461 1! Leaves lots of things on the stack for use by the compiled 
; 168 pees 1! BASIC=PLUS-2 code. These things will be removed by 
; 19° 65 7! BASSEND_GSB_R8. 

3; 170 64 1! 

3 4 65 : leo 

3 178 $9 BEGIN 

: 176 $8 '¢ 

. tm ! The following external registers are mearly passed through to 
; 178 0 ! the compiled code. 

3; 17 71 te 

3 178 7 

oe 7 eaten, REGISTER 

; 180 74 BSFSA_MAJOR_STG, 

s 181 75 BSFSA_MINOR STG, 

s 182 0476 BSF SA_TEMP_STG; 


BASSINIT_C_GSB 

; 183 77 
1 47 
i 
18 481 
188 482 
189 4 
190 
ae: 
198 Oc 
194 Ags 
GORE 
Oe 
199 0698 
00 0494 
Be 
08 049 
04 
05 
of 


o 
co 
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H 4 
16-Sep-1984 00:37: AX-11 Bliss-32 v4 
1e28eb7 138s 99:8e:89 =f 
BUILTIN 
FP, 
81$Psu 
ACTUAL COUNT; 
LITERAL 
K_ADDR_ARG = 3; ! position of addr arg 


'¢ 
! Define local variables as registers. We connot have any stack 
} locals since we manipulate the stack pointer in this routine. 


REGISTER 
FMP : REF BLOCK (0, BYTE) eiEhe (BSFSFCD) ' pointer to FCD 
PREV_FMP : REF BLOCK CO, BYTE) FIELD (BSFSFCD), | points to previous frame 
NEW_PC; ! PC of start of subroutine 


te 
Check for the index being out of range. 


IF ((, INDEX LEQ 0) OR (. INDEX GTR ..TABLE)) 
THEN 


BEGIN 
4 ACTUALCOUNT () EQL K_ADDR_ARG 
NEW_PC = .OTHERWISE_ADDR 
aie BASSSSIGNAL (BASS$K_ON_STAOUT); 
oi ELSE 
; Fetch the PC of the head of the subroutine selected by the index. 
NEW_PC = .BLOCK C.TABLE, (.INDEX*2) + 2, 0, 16, 1; 0. BYTE] + . TABLE; 
"allocate frame control data. 
FMP = .FP; 
is SP = .FMP = BSFSK_LENFCDGSB; 
;_ Initialize the parts of the FCD relavent to a GOSUB. 


FMP [BSFSA_MARK) = 
BSF $A~BASE_SP) 


FMP CBSFSA_PROC_ID] = .NEW_PC; 
'¢ 
! Copy the frame flags from the previous frame. The previous 


ri 
BASRTL.SRCIJBASINIGSC.852;1 


Page 


80 


4 
nit c.6s8 1E-$e0-1984 90:57:00 yayet BLiag-32 v4.e74g. 


3 re : : frame had better be a basic frame. 

: 26 § " PREV_FMP_= .FMP CBSFSA_SAVED FP2; 

i 348 FMP CBSFSW_FCD_FLAGS) = .PREQ_FMP CBSFSW_FCD_FLAGS); 

; 265 5 i Mark this as a "GOSUB’ frame. There is no need to distinguish a 
3 re re } frame created by ‘‘ON GOSUB"’ from one created by ‘'GOSUB'’. 

; 48 246 mn FMP CBSFSB_PROC_CODE) = BSFSK_PROC_GOSB; 

: 3} 0363 ; Set the frame length field. 

; 3 0946 FMP CBSFSB_LEN_FCD) = BSF SK_LENFCDGSB; 

: 254 0948 IF ((.FMP CBSFSW_FCD_FLAGS] AND BSFSM_FCD_IV) NEQ 0) THEN BISPSW (ZREF (PSLSM_IV)); 
: $8 9886 5 16 

; 257 0551 i Set up the BASIC handler. This marks the frame as a BASIC frame 
; 38 8236 and tells VAX/VMS CHF to call BASSHANDLER for exceptions. 

; 60 0554 FMP CBSFSA_HANDLER) = BASSHANDLER; 

; 6¢ 0556 i Branch to the compiled code. This code will call BASSEND_GSB_R8 
3 rey beep ! rather than returning. 

: 265 0559 BASSGOSUB_JSB (.NEW_PC); 

; 66 0560 END; ! of BASSINIT_C_GSB 


‘TITLE BASSINIT_C_6SB 
“IDENT \1-005\ 


-EXTRN BASSSSIGNAL - BASSHANDLER 
ZEXTRN BAS$K_ON_STAOUT 


-PSECT _BASSCODE,NOWRT, SHR, PIC.2 


0004 00000 .ENTRY BASSINIT_C_GSB, Save R2 
50 AC 00 0002 MOVL INDEX, RO 
Q 15 000 BLEQ 
06 Bc D1 000: CMPL RO, @TABLE 
18 15 0000C BLEQ 
03 6¢ 91 OOO0E 18: CMPB CCAP), #3 
13 991 BNEQ 
52 oc ac D 1 MOVL  OTHERWISE_ADDR, NEW_PC 
1A 11 0001 BRB 4$ 
43 006 8F 9A 00019 2%: MOVZBL #BASS$K_ON_STAOUT, -(SP) 
000000006 0 1 re 1 CALLS a. BASSS$S1GNAL 
4 acts ; 6 3%: MOVAW Y LECRO], RO 
hor cv Tut (RO), NEW. PC 
ac C F ADDL2 TABLE, NEW~PC 
5 3 48: MOVL FP, F 
E EO A MOVAB =32(RO), SP 
ct a ee tte 
7 | ° 
ro A a PD 00041 MOVG  BSFSA_MINOR_STG, -16(FMP) 


mr — -_ 
| 


BASSINIT_C_GSB , 


& 
1b-se -1 737: AX-11 Bliss-32 V4.0-74 e 
1 ~3007}38t 90:37:88 BASRTL.SRC BASINIGc 82:1 wie 
A 9 D MOVL  BSFSA_TEMP_STG, -20(FMP) ; 
Es A 3 D 43 MOVL w PC, -22( FMP) : 
5 0c AO D 4D MOVL  12(FMPS, PREV_FMP : 
E6 A 58 A 8 1 MOV -26(PREV_FMP), =26(F MP) : 
eA 06 F B 6 MOVW #1568, -28( FMP) : 
02 c6 «OA E : BBC #11, -26(FMP), 5$ : 
+4 6 BISPSW # : 
60 000000006 . 63 5$: MOVAB BASSHANDLER, (FMP) : 
6 1 O06A JS8 (NEW _PC) : 
04 0006C RET : 
; Routine Size: 109 bytes, Routine Base: _BASSCODE + 0000 
; 67 561 1 
; 268 0369 1 END 
5 69 0565 1 
3 70 0564 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
:  BASSCODE 109 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
: wceeeoce ym Ols ereeeeere Pages Processing 
: File Total Loaded Percent Mapped Time 
> _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 1 0 581 00:01.1 
3 COMMAND QUALIFIERS 
; BLISS/CHECK= (FIELD. INITIAL .OPTIAIZE) /NOTRACE/LIS=L1SS:BASIN1GSC/08)=08)8 :BASINI GSC MSRC$:BASINIGSC/UPDATE=(ENHS$:BASINIGSC 
Size: 109 6°08 + 0 data bytes 
Run Time: :06. 
Elapsed Time: 


:17. 
Lines/CPU Min: 45 
Lexemes/CPU-Min: 1908 
Memory Used: 72 pages 


Bi aoee Se aie 8 Sa a, 


PASSINIT.C_6SB 


; Compilation Complete 


K 4 
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